home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / lstops.tst < prev    next >
Text File  |  1999-09-16  |  3KB  |  99 lines
  1. mode(5)
  2. //-----------------------
  3. //-- extractions tests --
  4. //-----------------------
  5.  
  6. l=list(1,2,-4);
  7. if l(1)<>1 then pause,end
  8. if l(3)<>-4 then pause,end
  9. [x1,x2]=l([1 3]);
  10. if x1<>l(1)|x2<>l(3) then pause,end
  11. [x2,x1]=l([3 1]);
  12. if x1<>l(1)|x2<>l(3) then pause,end
  13. [x1,x2]=l([1;3]);
  14. if x1<>l(1)|x2<>l(3) then pause,end
  15. [x2,x1]=l([3;1]);
  16. if x1<>l(1)|x2<>l(3) then pause,end
  17. [x1,x2,x3]=l(:);
  18. if x1<>l(1)|x2<>l(2)|x3<>l(3) then pause,end
  19.  
  20. //with full tlists 
  21. l=tlist(['t','a','b','c'],1,-2,5);
  22. if l(2)<>1 then pause,end
  23. if l(4)<>5 then pause,end
  24. [x1,x2]=l([2 4]);
  25. if x1<>l(2)|x2<>l(4) then pause,end
  26. [x2,x1]=l([4 2]);
  27. if x1<>l(2)|x2<>l(4) then pause,end
  28. if l('a')<>1 then pause,end
  29. if l('c')<>5 then pause,end
  30. [x1,x2]=l(['a' 'c']);
  31. if x1<>l('a')|x2<>l('c') then pause,end
  32. [x2,x1]=l(['c' 'a']);
  33. if x1<>l('a')|x2<>l('c') then pause,end
  34. [x1,x2]=l(['a';'c']);
  35. if x1<>l('a')|x2<>l('c') then pause,end
  36. [x2,x1]=l(['c';'a']);
  37. if x1<>l('a')|x2<>l('c') then pause,end
  38.  
  39. //with partial tlists (no elements formal names)
  40. l=tlist('t',1,-2,5);
  41. deff('[f1,f2,f3,f4,f5,f6,f7]=%te(i,j,f)',[
  42.   'nams=[''a'',''b'',''c''];'
  43.   'for k=1:prod(size(i))';
  44.   '   kf=find(i(k)==nams);';
  45.   '   if kf==[] then error(21),end;'
  46.   '   execstr(''f''+string(k)+''=j(kf+1)'');'
  47.   '   end;'])
  48. if l(2)<>1 then pause,end
  49. if l(4)<>5 then pause,end
  50. [x1,x2]=l([2 4]);
  51. if x1<>l(2)|x2<>l(4) then pause,end
  52. [x2,x1]=l([4 2]);
  53. if x1<>l(2)|x2<>l(4) then pause,end
  54. if l('a')<>1 then pause,end
  55. if l('c')<>5 then pause,end
  56. [x1,x2]=l(['a' 'c']);
  57. if x1<>l('a')|x2<>l('c') then pause,end
  58. [x2,x1]=l(['c' 'a']);
  59. if x1<>l('a')|x2<>l('c') then pause,end
  60. [x1,x2]=l(['a';'c']);
  61. if x1<>l('a')|x2<>l('c') then pause,end
  62. [x2,x1]=l(['c';'a']);
  63. if x1<>l('a')|x2<>l('c') then pause,end
  64. //---------------------
  65. //-- insertion tests --
  66. //---------------------
  67. l=list(2,'a',-1);
  68. l(1)=[1 2];
  69. if l<>list([1 2],'a',-1) then pause,end
  70. l(1)=33;
  71. if l<>list(33,'a',-1) then pause,end
  72. l(1)=33;
  73. if l<>list(33,'a',-1) then pause,end
  74. l(0)=1.25;
  75. if l<>list(1.25,33,'a',-1) then pause,end
  76. l(5)=[1 2 3];
  77. if l<>list(1.25,33,'a',-1,[1 2 3]) then pause,end
  78. l(3)=null();
  79. if l<>list(1.25,33,-1,[1 2 3]) then pause,end
  80. l(3)=null();
  81. if l<>list(1.25,33,[1 2 3]) then pause,end
  82. l(4)=null();
  83. if l<>list(1.25,33,[1 2 3]) then pause,end
  84. l(0)=null();
  85. if l<>list(1.25,33,[1 2 3]) then pause,end
  86. l=tlist('t',2,'a',-1);
  87. l(2)=[1 2 3];
  88. if %lnl(l,tlist('t',[1 2 3],'a',-1)) then pause,end
  89. l(2)=33;
  90. if %lnl(l,tlist('t',33,'a',-1)) then pause,end
  91. l(2)=33;
  92. if %lnl(l,tlist('t',33,'a',-1)) then pause,end 
  93. l(4)=[1 2];
  94. if %lnl(l,tlist('t',33,'a',[1,2])) then pause,end
  95. l(2)=null();
  96. if %lnl(l,tlist('t','a',[1,2])) then pause,end
  97. l(1)=null();
  98. if %lnl(l,list('a',[1,2])) then pause,end
  99.